main
Sub Main
	Dim ncount
	ncount = 0
	Set doc=Application.ActiveDocument
	Set v = doc.ActiveView
	dim nets,netobj
	set nets = doc.nets
	
	for each netobj in nets
		if netobj.pins.count=1 then 
			doc.SelectObjects(3,netobj.Name,True)		
			ncount = ncount+1
		end if	
	next
	Application.ExecuteCommand("Edit Highlight")
	doc.SelectObjects ppcbObjectTypeAll, "*", False 
	MsgBox ncount
End Sub
